home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 2003 November A / PCWK1103A.iso / ABBYY FineReader 7.0 PRO / data1.cab / gs_cidfn.ps < prev    next >
Text File  |  2002-04-04  |  22KB  |  702 lines
  1. %    Copyright (C) 1995, 2000 Aladdin Enterprises.  All rights reserved.
  2. % 
  3. % This software is provided AS-IS with no warranty, either express or
  4. % implied.
  5. % 
  6. % This software is distributed under license and may not be copied,
  7. % modified or distributed except as expressly authorized under the terms
  8. % of the license contained in the file LICENSE in this distribution.
  9. % 
  10. % For more information about licensing, please refer to
  11. % http://www.ghostscript.com/licensing/. For information on
  12. % commercial licensing, go to http://www.artifex.com/licensing/ or
  13. % contact Artifex Software, Inc., 101 Lucas Valley Road #110,
  14. % San Rafael, CA  94903, U.S.A., +1(415)492-9861.
  15.  
  16. % $Id: gs_cidfn.ps,v 1.18.4.5 2002/04/03 07:31:14 mpsuzuki Exp $
  17. % ProcSet for implementing CIDFont and CIDMap resources.
  18. % When this is run, systemdict is still writable.
  19.  
  20. % ---------------- Defining CIDFont resources ---------------- %
  21.  
  22. % Define a CIDFont resource.  This is the defineresource implementation for
  23. % the CIDFont resource category.
  24.  
  25. /.checkfonttype {    % <cidfont> <fonttype> .checkfonttype <cidfont> <new?>
  26.   1 index /FID known {
  27.     1 index /FontType get ne {
  28.       /definefont cvx /invalidfont signalerror
  29.     } if false
  30.   } {
  31.     1 index /FontType 3 -1 roll put true
  32.   } ifelse
  33. } bind def
  34.  
  35. /.cidfonttypes where { pop } { /.cidfonttypes 6 dict def } ifelse
  36. .cidfonttypes
  37.  
  38. 30 dict begin
  39.  
  40. % The key in .cidfonttypes is the CIDFontType value;
  41. % the value is a procedure that takes a font name and the CIDFont dictionary
  42. % and replaces the latter with a real font.
  43.  
  44. % ------ CIDFontType 0 (FontType 9) ------ %
  45.  
  46. % We add the following entries to the CIDFont dictionary, in addition to
  47. % the ones documented by Adobe:
  48. %    SubrCache - dictionary for caching Subr arrays
  49. % For CIDFonts where we read the data from disk incrementally:
  50. %    GlyphData is 0 (arbitrary)
  51. %    DataSource - a ReusableStreamDecode filter for the data
  52. % We also add a FID entry, and possibly a Subrs entry, to each element of
  53. % FDArray.
  54.  
  55. dup 0 {
  56.   9 .checkfonttype {
  57.     /CIDInit /ProcSet findresource begin
  58.     .completefont9
  59.     end
  60.   } if
  61.   1 index exch .buildfont9 exch pop
  62. } bind put
  63.  
  64. % Add entries to a new CIDFontType 0 font per documentation (FontMatrix)
  65. % or for .buildfont9 (FDArray.Private.Subrs).
  66. /.completefont9 {    % <cidfont0> .completefont9 <cidfont0>
  67.   currentglobal 3 1 roll dup gcheck setglobal
  68.   dup /FontMatrix known not {
  69.     dup /FontMatrix [0.001 0 0 0.001 0 0] put
  70.     dup /FDArray get {
  71.       /FontMatrix get [1000 0 0 1000 0 0] 1 index concatmatrix pop
  72.     } forall
  73.   } if
  74.   dup /FDArray get {
  75.         % Read the Subrs if necessary.
  76.     dup /Private get dup /Subrs known not {
  77.       dup /SubrCount .knownget {
  78.         % Stack: font Private SubrCount
  79.     currentglobal 3 1 roll 1 index gcheck setglobal
  80.     array 1 index /Subrs 3 -1 roll put
  81.         % Stack: font global Private
  82.     2 index begin begin .loadsubrs end end
  83.     setglobal
  84.       } {
  85.     pop
  86.       } ifelse readonly pop
  87.     } {
  88.       pop pop
  89.     } ifelse
  90.   } forall
  91.   3 -1 roll setglobal
  92. } bind def
  93.  
  94. % Read some Subrs for the current Type 1 subfont.
  95. % The subfont's Private dict is currentdict; the CIDFont itself is the
  96. % next dictionary on the stack.
  97. /.readsubrs {        % <Subrs> <start> .readsubrs <Subrs>
  98.   1 SubrCount 1 sub {
  99.     dup SDBytes mul SubrMapOffset add
  100.     dup SDBytes .readint exch SDBytes add SDBytes .readint
  101.     1 index sub string ReadString 2 index 3 1 roll put
  102.   } for
  103. } bind def
  104.  
  105. % Ensure that all the Subrs for the current Type 1 subfont are loaded.
  106. % The subfont's Private dict is currentdict; the CIDFont itself is the
  107. % next dictionary on the stack.
  108. /.loadsubrs {
  109.   Subrs length 0 ne {
  110.     SubrCache SubrMapOffset .knownget {
  111.         % We've already loaded some Subrs at this offset.
  112.         % Make sure we've got as many as we need.
  113.       dup length SubrCount lt {
  114.         % We need to load more.
  115.     SubrCount array exch 1 index copy length .readsubrs
  116.     SubrCache SubrMapOffset 2 index put
  117.       } if
  118.     } {
  119.         % We haven't loaded any Subrs at this offset yet.
  120.       SubrCount array 0 .readsubrs
  121.       SubrCache SubrMapOffset 2 index put
  122.     } ifelse
  123.     Subrs copy pop
  124.   } if
  125. } bind def
  126.  
  127. % ------ CIDFontType 1 (FontType 10) ------ %
  128.  
  129. dup 1 {
  130.   10 .checkfonttype pop
  131.   1 index exch .buildfont10 exch pop
  132. } bind put
  133.  
  134. % ------ CIDFontType 2 (FontType 11) ------ %
  135.  
  136. dup 2 {
  137.   11 .checkfonttype pop
  138.   1 index exch .buildfont11 exch pop
  139. } bind put
  140.  
  141. pop        % .cidfonttypes
  142.  
  143. % ---------------- Reading CIDFontType 0 files ---------------- %
  144.  
  145. /StartData {        % <(Binary)|(Hex)> <datalength> StartData -
  146.             %   (currentdict is CID font dict)
  147.         % If we're loading a resource file and the data format is
  148.         % binary, we can just save a pointer to the data and load it
  149.         % incrementally.
  150.   mark {
  151.         % Previous versions of this code made provisions for
  152.         % reading hex-encoded data incrementally.  Since hex data
  153.         % doesn't seem to be used in practice, we no longer bother.
  154.     2 index (Binary) ne { stop } if
  155.     currentfile .currentresourcefile ne { stop } if
  156.         % Hack: the pdfwrite driver relies on finalization to write
  157.         % out fonts.  However, the font may be finalized after the
  158.         % resource file, in which case the resource file will be
  159.         % closed.  So if the current output device is pdfwrite,
  160.         % don't use incremental loading.
  161.     currentdevice .devicename /pdfwrite eq { stop } if
  162.     currentfile fileposition
  163.   } .internalstopped {
  164.         % File is not positionable, or uses hex data.
  165.         % Load the data now.
  166.     cleartomark exch (Hex) eq
  167.       { { currentfile exch readhexstring pop } }
  168.       { { currentfile exch readstring pop } }
  169.     ifelse exch
  170.         % Stack: readproc length
  171.     dup 65400 le {
  172.         % readstring with a 0-length string causes a rangecheck,
  173.         % but a data length of 0 is allowed.
  174.       string dup () ne { 1 index exec } if
  175.     } {
  176.       mark 3 1 roll {
  177.         % Stack: mark str ... readproc length
  178.     dup 0 eq { pop exit } if
  179.     dup 65400 .min dup string 3 index exec
  180.         % Stack: mark str ... readproc length newstrlen newstr
  181.     4 1 roll sub
  182.       } loop
  183.       counttomark 1 add 1 roll ]
  184.     } ifelse
  185.     /GlyphData exch def
  186.         % If we were reading hex data, skip past the >.
  187.     2 get { readhexstring } 0 get eq {
  188.       currentfile 0 (>) .subfiledecode dup flushfile closefile
  189.     } if
  190.   } {
  191.         % File is positionable and binary, just save a pointer.
  192.         % Stack: (Binary) length -mark- pos
  193.     /GlyphData 0 def
  194.     exch pop 3 -1 roll pop exch
  195.         % Stack: pos length
  196.     /DataSource currentfile 2 index () .subfiledecode true .reusablestream def
  197.     currentfile 3 1 roll add setfileposition
  198.   } ifelse
  199.   /SubrCache 10 dict def
  200.   CIDFontName currentdict /CIDFont defineresource pop
  201.   end            % CID font dict
  202.   end            % resource category dict
  203. } bind def
  204.  
  205. % Some Adobe fonts include the line
  206. %   /Setup /cid_Setup load def
  207. % This is apparently included only to prevent proper, conforming PostScript
  208. % interpreters (as opposed to ATM or a special Adobe font loader) from
  209. % loading the font, since Setup is not referenced anywhere else in the file.
  210. /cid_Setup { } def
  211.  
  212. currentdict end
  213.  
  214. % ---------------- Rendering ---------------- %
  215.  
  216. % ------ Generic ------ %
  217.  
  218. % Read a string at a given offset in a "file" (binary file or
  219. % GlyphData in RAM).
  220. /ReadString {        % <pos> <string> ReadString <string>
  221.   GlyphData 0 eq {
  222.     % Read from the file.
  223.     DataSource 3 -1 roll setfileposition
  224.     DataSource exch readstring pop
  225.   } {
  226.     % Read from a string or an array of strings.
  227.     GlyphData .stringsreadstring
  228.   } ifelse
  229. } bind def
  230. /.stringsreadstring    % <pos> <string> <strings> .stringsreadstring
  231.             %   <vmstring>
  232. { dup type /stringtype eq
  233.    { 3 1 roll length getinterval
  234.    }
  235.    {  {        % Stack: pos string glyphdata
  236.     dup 0 get length dup 4 index gt { exit } if
  237.     4 -1 roll exch sub 3 1 roll
  238.     dup length 1 sub 1 exch getinterval
  239.       }
  240.      loop
  241.         % Stack: pos string glyphdata glyphdata[0]length
  242.         % We know no request can span more than 2 strings.
  243.      3 index 3 index length add 1 index le
  244.       {        % Request fits in a single string: just return a substring.
  245.     pop 0 get 3 1 roll length getinterval
  246.       }
  247.       {        % Request spans 2 strings.  Copy the first part.
  248.     1 index 0 get 4 index 3 -1 roll 1 index sub getinterval
  249.     2 index copy
  250.         % Copy the second part.
  251.         % Stack: pos str glyphdata str1
  252.     length exch 1 get 0 3 index length
  253.     3 index sub getinterval 2 index 3 1 roll putinterval
  254.     exch pop
  255.       }
  256.      ifelse
  257.    }
  258.   ifelse
  259. } bind def
  260.  
  261. % Interpret a byte string as a (big-endian) integer.
  262. /.cvbsi            % <bytes> .cvbsi <int>
  263. { 0 exch { exch 8 bitshift add } forall
  264. } bind def
  265.  
  266. % Read an integer from binary data.
  267. /.readint        % <pos> <nbytes> .readint <int>
  268. { string ReadString .cvbsi
  269. } bind def
  270.  
  271. % ------ CIDFontType 0 ------ %
  272.  
  273. /.readglyphdata {
  274.   currentfont exch .type9mapcid
  275.   FDArray exch get exch
  276. } bind def
  277.  
  278. % BuildGlyph procedure for CIDFontType 0.
  279. % The name %Type9BuildGlyph is known to the interpreter.
  280. /.cid0buildstring 10 string def
  281. (%Type9BuildGlyph) cvn {    % <cidfont> <cid> %Type9BuildGlyph -
  282.   .currentglobal 3 1 roll 1 index gcheck .setglobal
  283.   1 index begin
  284.   dup .readglyphdata dup null eq {
  285.         % Substitute CID 0. **** WRONG ****
  286.     pop pop 0 .readglyphdata
  287.   } if
  288.         % Stack: cidfont cid subfont charstring
  289.   dup null eq { pop pop pop pop } {    %**** WRONG ****
  290.     4 -1 roll pop
  291.     3 1 roll exch dup 4 -1 roll 0 0 moveto
  292.     3 index /FontType get 2 eq { .type2execchar } { .type1execchar } ifelse
  293.   } ifelse    %**** WRONG ****
  294.   end
  295.   .setglobal
  296. } bind def
  297.  
  298. % ------ CIDFontType 2 ------ %
  299.  
  300. % BuildGlyph procedure for CIDFontType 2.
  301. % The name %Type11BuildGlyph is known to the interpreter.
  302. (%Type11BuildGlyph) cvn {    % <cidfont> <cid> %Type11BuildGlyph -
  303.         % We must be prepared for out-of-range CIDs.
  304.   2 copy { .type11mapcid } .internalstopped {
  305.     pop /CharStrings get /.notdef get
  306.   } if
  307.             % Stack: cidfont cid glyphindex
  308.   1 index exch .type42execchar
  309. } bind def
  310.  
  311. % ---------------- Define resources ---------------- %
  312.  
  313. languagelevel exch 2 .setlanguagelevel
  314.  
  315. % Define the CIDInit ProcSet resource.
  316. % The ProcSet dictionary is still on the stack.
  317.  
  318. % We might have loaded CMap support already.  However, Adobe's
  319. % protected font downloader defines a CIDInit ProcSet that will be
  320. % loaded from the filesystem later, so we must check specifically
  321. % for the ProcSet being defined in VM.
  322. /CIDInit /ProcSet 2 copy resourcestatus { pop 0 eq } { false } ifelse {
  323.   pop pop findresource dup length 4 index length add dict .copydict
  324.   4 -1 roll exch .copydict
  325. } {
  326.   3 -1 roll
  327. } ifelse exch defineresource pop
  328.  
  329. % Define the CIDFont resource category.
  330. % We break out .buildcidfont because it appears that at least for
  331. % Type 32 (CIDFontType 4) fonts, the font can be registered in the Font
  332. % category with only a CIDFontType and no FontType.
  333. /.buildcidfont {        % <name> <fontdict> .buildcidfont
  334.                 %   <name> <cidfont>
  335.   dup /CIDFontType get //.cidfonttypes exch get exec
  336. } odef
  337.  
  338. /.loadcidfontwithoutpop {
  339.     dup 4 string .peekstring pop dup (ttcf) eq exch (\000\001\000\000) eq or {
  340.     .loadcjkvttcidfont
  341.   } {
  342.     /CIDFont /Category findresource /.Instances get
  343.     dup length 2 div cvi dict .copydict exch
  344.     .loadfont
  345.     % Stack: <<original-.Instances>>
  346.     /CIDFont /Category findresource /.Instances get {% forall
  347.     % <<original-.Instances>> key value
  348.     2 index 2 index known {
  349.         pop pop
  350.     } {
  351.         pop exch pop /CIDFont findresource exit
  352.     } ifelse
  353.     } forall
  354.     dup /CIDFontName known not {
  355.     {Internal Error in .loadcidfontwithoutpop} stop
  356.     } if
  357.   } ifelse
  358. } bind def
  359.  
  360. /.loadcidfont {
  361.   .loadcidfontwithoutpop pop
  362. } bind def
  363.  
  364. % Define the name of the CID font map file.
  365. /defaultcidfontmap (CIDFnmap) def
  366. userdict /CIDFontmap 10 dict put
  367.  
  368. % <dict> <file> .readCIDFontmap <dict>
  369. % Code from gs_fonts.ps::.readFontmap
  370. /.readCIDFontmap {
  371.     { dup token not { closefile exit } if
  372.       % This is a hack to get around the absurd habit of MS-DOS editors
  373.       % of adding an EOF character at the end of the file.
  374.       dup (\032) eq { pop closefile exit } if
  375.       1 index token not
  376.        { (CIDFontmap entry for ) print dup =only
  377.      ( has no associated file or alias name!  Giving up.) = flush
  378.      {.readCIDFontmap} 0 get 1 .quit
  379.        } if
  380.       dup type dup /stringtype eq exch /nametype eq or not
  381.        { (CIDFontmap entry for ) print 1 index =only
  382.      ( has an invalid file or alias name!  Giving up.) = flush
  383.      {.readCIDFontmap} 0 get 1 .quit
  384.        } if
  385.         % stack: dict file cidfontname filename|aliasname
  386.       1 index type /stringtype eq
  387.       1 index type /nametype eq and 1 index xcheck and
  388.       1 index /run eq 2 index /.runlibfile eq or and {
  389.         % This is an inclusion entry.
  390.     pop findlibfile { exch pop } { file } ifelse
  391.     2 index exch .readCIDFontmap pop
  392.       } {
  393.         % This is a real entry.
  394.         % stack: dict file cidfontname filename|aliasname
  395.  
  396.         % Before staring a game, we need a hack.
  397.         % Some CJK pdf file contains a cidfontname that cannot 
  398.         % be represented as a nametype literal. Instead, the
  399.         % cidfontname is represented as a string literal.
  400.         % If a cidfontname is represented as a stringtype object,
  401.         % it must be converted to a nametype object. 
  402.         % We handle such a case here.
  403.     exch dup type /stringtype eq {cvn} if exch
  404.  
  405.             % stack: dict file cidfontname filename|aliasname
  406.         % Read and pop tokens until a semicolon.
  407.        { 2 index token not
  408.       { (CIDFontmap entry for ) print 1 index =only
  409.         ( ends prematurely!  Giving up.) = flush
  410.         {.readCIDFontmap} 0 get 1 .quit
  411.       } if
  412.      dup /; eq { pop 3 index 3 1 roll .growput exit } if
  413.      % Format:
  414.      %   /CIDFontname (file) ttc-index ;
  415.      %   /CIDFontname (file) /Code->CID-dict ;
  416.      %   /CIDFontname (file) ttc-index /Code->CID-dict ;
  417.      %
  418.      % e.g.
  419.      %   /HG-MinchoL     (hgminchol.ttc) 1 /Adobe-Japan1-Unicode ;
  420.      %   /HG-PMinchoL    (hgminchol.ttc) 2 /Adobe-Japan1-Unicode ;
  421.      %   /HG-MinchoL-J2  (hgminchol.ttc) 1 /Adobe-Japan2-Unicode ;
  422.      %   /HG-PGothicB    (hggothicb.ttc) 2 ;
  423.      %   /HG-GothicB-J2  (hggothicb.ttc) /Adobe-Japan2-Unicode ;
  424.      % 
  425.      % CID Fontmap entry is stored into CIDFontmap dict as an array.
  426.      % Array format:
  427.      %   [filename ttc-index]
  428.      %   [filename /Code->CID-dict]
  429.      %   [filename ttc-index /Code->CID-dict]
  430.      %
  431.      % Type: 
  432.      %   filename: string
  433.      %   ttc-index: integer
  434.      %   /Code->CID-dict: name
  435.      %
  436.      % stack: dict file cidfontname filename something
  437.      1 index type /nametype eq {
  438.        (CIDFontmap entry for ) print 2 index =only
  439.        (defines an alias! Giving up.) = flush
  440.        {.readCIDFontmap} 0 get 1 .quit
  441.      } if
  442.      % stack: dict file cidfontname filename something
  443.      exch [ exch 3 -1 roll
  444.      % stack: dict file cidfontname [ filename something 
  445.      dup type /integertype eq {
  446.        % stack: dict file cidfontname [ filename int
  447.        % Read next token
  448.        4 index token not
  449.        { (CIDFontmap entry for ) print 3 index =only
  450.          ( ends prematurely!  Giving up.) = flush
  451.          {.readCIDFontmap} 0 get 1 .quit
  452.        } if
  453.      } if
  454.      % stack: dict file cidfontname [ filename int something
  455.      % or     dict file cidfontname [ filename something
  456.      dup /; eq not 1 index type /nametype eq and {
  457.        % stack: dict file cidfontname [ filename  /Code->CID
  458.        % or     dict file cidfontname [ filename  int /Code->CID
  459.        % Read next token
  460.        counttomark 2 eq {4} {5} ifelse index token not
  461.        { (CIDFontmap entry for ) print
  462.          counttomark 2 eq {3} {4} ifelse index =only
  463.          ( ends prematurely!  Giving up.) = flush
  464.          {.readCIDFontmap} 0 get 1 .quit
  465.        } if
  466.      } if
  467.      % stack: dict file cidfontname [ filename int /Code->CID something
  468.      % or     dict file cidfontname [ filename /Code->CID something
  469.      dup /; eq {
  470.          pop ]
  471.          3 index 3 1 roll .growput exit
  472.      } if
  473.      pop
  474.        } loop
  475.       } ifelse
  476.     } loop
  477. } bind def
  478.  
  479. % <file> .loadCIDFontmap -
  480. /.loadCIDFontmap {
  481.     userdict /CIDFontmap get exch
  482.     .readCIDFontmap pop
  483. } bind def
  484.  
  485. % Code from .loadinitialfonts
  486. /.loadinitialcidfonts
  487.  { NOCIDFONTMAP not
  488.     { /CIDFONTMAP where
  489.       { pop [ CIDFONTMAP .pathlist ]
  490.          {
  491.                dup VMDEBUG findlibfile
  492.         { exch pop .loadCIDFontmap }
  493.         { /undefinedfilename signalerror }
  494.            ifelse
  495.          }
  496.       }
  497.       { LIBPATH
  498.          {
  499.                defaultcidfontmap 1 index .filenamedirseparator
  500.            exch concatstrings concatstrings dup VMDEBUG
  501.            (r) { file } .internalstopped
  502.         { pop pop } { .loadCIDFontmap } ifelse
  503.          }
  504.       }
  505.      ifelse forall
  506.     }
  507.    if
  508.    %%% Do nothing
  509.  } bind def
  510.  
  511. .loadinitialcidfonts
  512.  
  513. /CIDFontmapHandler <<
  514.   /nametype {
  515.     /CIDFont findresource
  516.     /CIDFont defineresource pop
  517.   } bind
  518.   /stringtype {
  519.     findlibfile {
  520.       exch pop
  521.       % Define CIDFont with a name defined in the font file
  522.       .loadcidfontwithoutpop
  523.       % Define CIDFont with a name define in CIDFontmap
  524.       dup length 0 ne {
  525.       dup /CIDFontName get 2 index eq {
  526.           % Avoid duplicated defineresource for the same CIDFont
  527.           pop pop
  528.       } {
  529.           % Give a name different from the name defined in the file
  530.           /CIDFont defineresource pop
  531.       } ifelse
  532.       } {
  533.       pop pop
  534.       } ifelse
  535.     } {
  536.       /undefinedresource signalerror
  537.     } ifelse
  538.   } bind
  539.   /arraytype {
  540.   % Replace filename in the array with file
  541.       dup 0 get
  542.       findlibfile {
  543.       3 1 roll pop
  544.       copyarray dup 3 1 roll 0
  545.       3 -1 roll put
  546.       % Expand array
  547.       aload pop .loadcjkvttcidfont
  548.       /CIDFont defineresource pop
  549.       } {
  550.       /undefinedresource signalerror
  551.       } ifelse
  552.   } bind
  553. >> def
  554.  
  555. %%% CIDFontmap Public Interface
  556. % /CIDFontName .CIDFontmapKnown true|false
  557. /.CIDFontmapKnown {
  558.     userdict /CIDFontmap get exch known
  559. } bind def
  560.  
  561. % /CIDFontName .CIDFontmapKnownget value true
  562. % /CIDFontName .CIDFontmapKnownget false
  563. /.CIDFontmapKnownget {
  564.     userdict /CIDFontmap get exch .knownget
  565. } bind def
  566.  
  567. % /CIDFontName value .CIDFontmapRunHandler -
  568. /.CIDFontmapRunHandler {
  569.     dup CIDFontmapHandler exch type get .execasresource
  570. } bind def
  571.  
  572. % proc .CIDFontmapForAll -
  573. /.CIDFontmapForAll {
  574.     CIDFontmap exch forall
  575. } bind def
  576.  
  577. % proc .CIDFontmapForAllKey -
  578. /.CIDFontmapForAllKey {
  579.     [ /pop cvx 3 -1 roll /exec cvx ] cvx .CIDFontmapForAll
  580. } bind def
  581.  
  582. /CIDFont /Generic /Category findresource dup length dict .copydict
  583. dup /InstanceType /dicttype put
  584. dup /DefineResource {
  585.   .buildcidfont
  586.   /Generic /Category findresource /DefineResource get exec
  587. } put
  588. /.originalresourceforall 1 index /ResourceForAll get def
  589. dup /ResourceForAll {
  590.     currentglobal false setglobal
  591.     % (template) (proc) (scratch) g
  592.     [           % (template) (proc) (scratch) g [
  593.     %
  594.     % 1. Gather CIDFont name in /Resource/CIDFont
  595.     %
  596.     4 index % (template) (proc) (scratch) g [ (template)
  597.     {cvn}      % (template) (proc) (scratch) g [ (template) {cvn}
  598.     4 index % (template) (proc) (scratch) g    [ (template) {cvn} (scratch)
  599.     .originalresourceforall
  600.     % (template) (proc) (scratch) g [ ...
  601.     %
  602.     % 2. Gather CIDFont name in CIDFontmap
  603.     %
  604.     {
  605.         dup length string cvs
  606.         dup     % (template) (proc) (scratch) g [ ... (Key) (Key)
  607.         counttomark 4 add index
  608.         % (template) (proc) (scratch) g [ ... (Key) (Key) (template)
  609.         .stringmatch {
  610.         cvn
  611.         % (template) (proc) (scratch) g [ ... /Key
  612.         % 3. Remove duplicated /Key
  613.         counttomark -1 1  {
  614.             index 1 index eq {
  615.             pop exit % Duplicated
  616.             } if
  617.         } for
  618.         } {
  619.         pop
  620.         } ifelse
  621.     } .CIDFontmapForAllKey
  622.     ]
  623.     exch setglobal
  624.     %
  625.     % 4. Build extended procedure
  626.     %
  627.     % (template) (proc) (scratch) [CIDFontmapKeys]
  628.     4 -1 roll pop
  629.     % (proc) (scratch) [CIDFontmapKeys]
  630.     3 1 roll
  631.     % [CIDFontmapKeys] (proc) (scratch)
  632.     [ exch {cvs} aload pop
  633.     % [CIDFontmapKeys] (proc) [ (scratch) -cvs-
  634.     4 -1 roll aload pop ] cvx
  635.     % [CIDFontmapKeys] proc++
  636.     %
  637.     % 5. Exec
  638.     %
  639.     forall
  640. } put
  641.  
  642. % CIDFonts may be defined in CFF OpenType files.
  643. % Check for this here.
  644. /.loadcidfontresource {
  645.   dup .ResourceFile {
  646.     {.loadcidfont} .execasresource
  647.   } {
  648.     pop dup
  649.     .CIDFontmapKnownget {
  650.       .CIDFontmapRunHandler
  651.     } {
  652.       dup /undefinedresource signalerror
  653.     } ifelse
  654.   } ifelse
  655. } bind def
  656. dup /.LoadResource {
  657.   currentglobal {
  658.     .loadcidfontresource
  659.   } {
  660.     true setglobal {.loadcidfontresource} stopped false setglobal {stop} if
  661.   } ifelse
  662. } bind put
  663. dup /.ResourceFileStatus {
  664.     dup .CIDFontmapKnown {
  665.     pop 2 -1 true
  666.   } {
  667.     .ResourceFile { closefile 2 -1 true } { pop false } ifelse
  668.   } ifelse
  669. } bind put
  670.  
  671. /Category defineresource pop
  672.  
  673. % Add the new FontType resources.
  674.  
  675. 9 1 11 { dup /FontType defineresource pop } for
  676.  
  677. % Add the new FMapType resource.
  678.  
  679. 9 dup /FMapType defineresource pop
  680.  
  681. % Define the CIDMap resource category.
  682. % These aren't documented, but it's clear what they are for:
  683. % to give names to CIDMaps for CIDFontType 2 fonts.
  684.  
  685. /CIDMap /Generic /Category findresource dup length dict .copydict
  686. dup /.CheckResource {
  687.     % Allow a string, an array of strings, or (as of Adobe release 3011)
  688.     % a dictionary.
  689.   dup type dup dup /stringtype eq exch /dicttype eq or {
  690.     pop true
  691.   } {
  692.     dup /arraytype eq exch /packedarraytype eq or {
  693.       true exch { type /stringtype eq and } forall
  694.     } {
  695.       false
  696.     } ifelse
  697.   } ifelse
  698. } bind put
  699. /Category defineresource pop
  700.  
  701. .setlanguagelevel
  702.